home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
FROMUTS
/
CDUNGEON
/
!CDUNGEON
/
c
/
ACTORS
next >
Wrap
Text File
|
1991-05-20
|
10KB
|
408 lines
/* AAPPLI- APPLICABLES FOR ADVENTURERS */
/*COPYRIGHT 1980, INFOCOM COMPUTERS AND COMMUNICATIONS, CAMBRIDGE MA. 02142*/
/* ALL RIGHTS RESERVED, COMMERCIAL USAGE STRICTLY PROHIBITED */
/* WRITTEN BY R. M. SUPNIK */
#include "funcs.h"
#include "vars.h"
logical aappli_(ri)
integer ri;
{
/* System generated locals */
logical ret_val;
/* Local variables */
logical f;
integer i;
if (ri == 0) {
goto L10;
}
/* !IF ZERO, NO APP. */
ret_val = TRUE_;
/* !ASSUME WINS. */
switch (ri) {
case 1: goto L1000;
case 2: goto L2000;
}
/* !BRANCH ON ADV. */
bug_(11, ri);
/* COMMON FALSE RETURN. */
L10:
ret_val = FALSE_;
return ret_val;
/* A1-- ROBOT. PROCESS MOST COMMANDS GIVEN TO ROBOT. */
L1000:
if (prsvec_1.prsa != vindex_1.raisew || prsvec_1.prso != oindex_1.rcage) {
goto L1200;
}
cevent_1.cflag[cindex_1.cevsph - 1] = FALSE_;
/* !ROBOT RAISED CAGE. */
play_1.winner = aindex_1.player;
/* !RESET FOR PLAYER. */
f = moveto_(rindex_1.cager, play_1.winner);
/* !MOVE TO NEW ROOM. */
newsta_(oindex_1.cage, 567, rindex_1.cager, 0, 0);
/* !INSTALL CAGE IN ROOM. */
newsta_(oindex_1.robot, 0, rindex_1.cager, 0, 0);
/* !INSTALL ROBOT IN ROOM. */
advs_1.aroom[aindex_1.arobot - 1] = rindex_1.cager;
/* !ALSO MOVE ROBOT/ADV. */
findex_1.cagesf = TRUE_;
/* !CAGE SOLVED. */
objcts_1.oflag1[oindex_1.robot - 1] &= ~ NDSCBT;
objcts_1.oflag1[oindex_1.spher - 1] |= TAKEBT;
return ret_val;
L1200:
if (prsvec_1.prsa != vindex_1.drinkw && prsvec_1.prsa != vindex_1.eatw) {
goto L1300;
}
rspeak_(568);
/* !EAT OR DRINK, JOKE. */
return ret_val;
L1300:
if (prsvec_1.prsa != vindex_1.readw) {
goto L1400;
}
/* !READ, */
rspeak_(569);
/* !JOKE. */
return ret_val;
L1400:
if (prsvec_1.prsa == vindex_1.walkw || prsvec_1.prsa == vindex_1.takew ||
prsvec_1.prsa == vindex_1.dropw || prsvec_1.prsa == vindex_1.putw
|| prsvec_1.prsa == vindex_1.pushw || prsvec_1.prsa ==
vindex_1.throww || prsvec_1.prsa == vindex_1.turnw ||
prsvec_1.prsa == vindex_1.leapw) {
goto L10;
}
rspeak_(570);
/* !JOKE. */
return ret_val;
/* AAPPLI, PAGE 3 */
/* A2-- MASTER. PROCESS MOST COMMANDS GIVEN TO MASTER. */
L2000:
if ((objcts_1.oflag2[oindex_1.qdoor - 1] & OPENBT) != 0) {
goto L2100;
}
rspeak_(783);
/* !NO MASTER YET. */
return ret_val;
L2100:
if (prsvec_1.prsa != vindex_1.walkw) {
goto L2200;
}
/* !WALK? */
i = 784;
/* !ASSUME WONT. */
if (play_1.here == rindex_1.scorr && (prsvec_1.prso == xsrch_1.xnorth ||
prsvec_1.prso == xsrch_1.xenter) || play_1.here == rindex_1.ncorr
&& (prsvec_1.prso == xsrch_1.xsouth || prsvec_1.prso ==
xsrch_1.xenter)) {
i = 785;
}
rspeak_(i);
return ret_val;
L2200:
if (prsvec_1.prsa == vindex_1.takew || prsvec_1.prsa == vindex_1.dropw ||
prsvec_1.prsa == vindex_1.putw || prsvec_1.prsa ==
vindex_1.throww || prsvec_1.prsa == vindex_1.pushw ||
prsvec_1.prsa == vindex_1.turnw || prsvec_1.prsa ==
vindex_1.spinw || prsvec_1.prsa == vindex_1.trntow ||
prsvec_1.prsa == vindex_1.follow || prsvec_1.prsa ==
vindex_1.stayw || prsvec_1.prsa == vindex_1.openw ||
prsvec_1.prsa == vindex_1.closew || prsvec_1.prsa ==
vindex_1.killw) {
goto L10;
}
rspeak_(786);
/* !MASTER CANT DO IT. */
return ret_val;
} /* aappli_ */
/* THIEFD- INTERMOVE THIEF DEMON */
/* DECLARATIONS */
void thiefd_()
{
/* System generated locals */
integer i__1, i__2;
/* Local variables */
integer i, j, nr;
logical once;
integer rhere;
/* !SET UP DETAIL FLAG. */
once = FALSE_;
/* !INIT FLAG. */
L1025:
rhere = objcts_1.oroom[oindex_1.thief - 1];
/* !VISIBLE POS. */
if (rhere != 0) {
hack_1.thfpos = rhere;
}
if (hack_1.thfpos == play_1.here) {
goto L1100;
}
/* !THIEF IN WIN RM? */
if (hack_1.thfpos != rindex_1.treas) {
goto L1400;
}
/* !THIEF NOT IN TREAS? */
/* THIEF IS IN TREASURE ROOM, AND WINNER IS NOT. */
if (rhere == 0) {
goto L1050;
}
/* !VISIBLE? */
newsta_(oindex_1.thief, 0, 0, 0, 0);
/* !YES, VANISH. */
rhere = 0;
if (qhere_(oindex_1.still, rindex_1.treas) || objcts_1.oadv[
oindex_1.still - 1] == -oindex_1.thief) {
newsta_(oindex_1.still, 0, 0, oindex_1.thief, 0);
}
L1050:
i__1 = -oindex_1.thief;
i = robadv_(i__1, hack_1.thfpos, 0, 0);
/* !DROP VALUABLES. */
if (qhere_(oindex_1.egg, hack_1.thfpos)) {
objcts_1.oflag2[oindex_1.egg - 1] |= OPENBT;
}
goto L1700;
/* THIEF AND WINNER IN SAME ROOM. */
L1100:
if (hack_1.thfpos == rindex_1.treas) {
goto L1700;
}
/* !IF TREAS ROOM, NOTHING. */
if ((rooms_1.rflag[hack_1.thfpos - 1] & RLIGHT) != 0) {
goto L1400;
}
if (hack_1.thfflg) {
goto L1300;
}
/* !THIEF ANNOUNCED? */
if (rhere != 0 || prob_(70, 70)) {
goto L1150;
}
/* !IF INVIS AND 30%. */
if (objcts_1.ocan[oindex_1.still - 1] != oindex_1.thief) {
goto L1700;
}
/* !ABORT IF NO STILLETTO. */
newsta_(oindex_1.thief, 583, hack_1.thfpos, 0, 0);
/* !INSERT THIEF INTO ROOM. */
hack_1.thfflg = TRUE_;
/* !THIEF IS ANNOUNCED. */
return;
L1150:
if (rhere == 0 || (objcts_1.oflag2[oindex_1.thief - 1] & FITEBT)
== 0) {
goto L1200;
}
if (winnin_(oindex_1.thief, play_1.winner)) {
goto L1175;
}
/* !WINNING? */
newsta_(oindex_1.thief, 584, 0, 0, 0);
/* !NO, VANISH THIEF. */
objcts_1.oflag2[oindex_1.thief - 1] &= ~ FITEBT;
if (qhere_(oindex_1.still, hack_1.thfpos) || objcts_1.oadv[
oindex_1.still - 1] == -oindex_1.thief) {
newsta_(oindex_1.still, 0, 0, oindex_1.thief, 0);
}
return;
L1175:
if (prob_(90, 90)) {
goto L1700;
}
/* !90% CHANCE TO STAY. */
L1200:
if (rhere == 0 || prob_(70, 70)) {
goto L1250;
}
/* !IF VISIBLE AND 30% */
newsta_(oindex_1.thief, 585, 0, 0, 0);
/* !VANISH THIEF. */
if (qhere_(oindex_1.still, hack_1.thfpos) || objcts_1.oadv[
oindex_1.still - 1] == -oindex_1.thief) {
newsta_(oindex_1.still, 0, 0, oindex_1.thief, 0);
}
return;
L1300:
if (rhere == 0) {
goto L1700;
}
/* !ANNOUNCED. VISIBLE? */
L1250:
if (prob_(70, 70)) {
return;
}
/* !70% CHANCE TO DO NOTHING. */
hack_1.thfflg = TRUE_;
i__1 = -oindex_1.thief;
i__2 = -oindex_1.thief;
nr = robrm_(hack_1.thfpos, 100, 0, 0, i__1) + robadv_(
play_1.winner, 0, 0, i__2);
i = 586;
/* !ROBBED EM. */
if (rhere != 0) {
i = 588;
}
/* !WAS HE VISIBLE? */
if (nr != 0) {
++i;
}
/* !DID HE GET ANYTHING? */
newsta_(oindex_1.thief, i, 0, 0, 0);
/* !VANISH THIEF. */
if (qhere_(oindex_1.still, hack_1.thfpos) || objcts_1.oadv[
oindex_1.still - 1] == -oindex_1.thief) {
newsta_(oindex_1.still, 0, 0, oindex_1.thief, 0);
}
if (nr != 0 && ! lit_(hack_1.thfpos)) {
rspeak_(406);
}
rhere = 0;
goto L1700;
/* !ONWARD. */
/* NOT IN ADVENTURERS ROOM. */
L1400:
newsta_(oindex_1.thief, 0, 0, 0, 0);
/* !VANISH. */
rhere = 0;
if (qhere_(oindex_1.still, hack_1.thfpos) || objcts_1.oadv[
oindex_1.still - 1] == -oindex_1.thief) {
newsta_(oindex_1.still, 0, 0, oindex_1.thief, 0);
}
if ((rooms_1.rflag[hack_1.thfpos - 1] & RSEEN) == 0) {
goto L1700;
}
i__1 = -oindex_1.thief;
i = robrm_(hack_1.thfpos, 75, 0, 0, i__1);
/* !ROB ROOM 75%. */
if (hack_1.thfpos < rindex_1.maze1 || hack_1.thfpos > rindex_1.maz15 ||
play_1.here < rindex_1.maze1 || play_1.here > rindex_1.maz15) {
goto L1500;
}
i__1 = objcts_1.olnt;
for (i = 1; i <= i__1; ++i) {
/* !BOTH IN MAZE. */
if (! qhere_(i, hack_1.thfpos) || prob_(60, 60) || (
objcts_1.oflag1[i - 1] & VISIBT + TAKEBT) !=
VISIBT + TAKEBT) {
goto L1450;
}
rspsub_(590, objcts_1.odesc2[i - 1]);
/* !TAKE OBJECT. */
if (prob_(40, 20)) {
goto L1700;
}
i__2 = -oindex_1.thief;
newsta_(i, 0, 0, 0, i__2);
/* !MOST OF THE TIME. */
objcts_1.oflag2[i - 1] |= TCHBT;
goto L1700;
L1450:
;
}
goto L1700;
L1500:
i__1 = objcts_1.olnt;
for (i = 1; i <= i__1; ++i) {
/* !NOT IN MAZE. */
if (! qhere_(i, hack_1.thfpos) || objcts_1.otval[i - 1] != 0 ||
prob_(80, 60) || (objcts_1.oflag1[i - 1] &
VISIBT + TAKEBT) != VISIBT +
TAKEBT) {
goto L1550;
}
i__2 = -oindex_1.thief;
newsta_(i, 0, 0, 0, i__2);
objcts_1.oflag2[i - 1] |= TCHBT;
goto L1700;
L1550:
;
}
/* NOW MOVE TO NEW ROOM. */
L1700:
if (objcts_1.oadv[oindex_1.rope - 1] == -oindex_1.thief) {
findex_1.domef = FALSE_;
}
if (once) {
goto L1800;
}
once = ! once;
L1750:
--hack_1.thfpos;
/* !NEXT ROOM. */
if (hack_1.thfpos <= 0) {
hack_1.thfpos = rooms_1.rlnt;
}
if ((rooms_1.rflag[hack_1.thfpos - 1] & RLAND + RSACRD +
REND) != RLAND) {
goto L1750;
}
hack_1.thfflg = FALSE_;
/* !NOT ANNOUNCED. */
goto L1025;
/* !ONCE MORE. */
/* ALL DONE. */
L1800:
if (hack_1.thfpos == rindex_1.treas) {
return;
}
/* !IN TREASURE ROOM? */
j = 591;
/* !NO, DROP STUFF. */
if (hack_1.thfpos != play_1.here) {
j = 0;
}
i__1 = objcts_1.olnt;
for (i = 1; i <= i__1; ++i) {
if (objcts_1.oadv[i - 1] != -oindex_1.thief || prob_(70, 70)
|| objcts_1.otval[i - 1] > 0) {
goto L1850;
}
newsta_(i, j, hack_1.thfpos, 0, 0);
j = 0;
L1850:
;
}
return;
} /* thiefd_ */